package org.xteam.camllight;

public class TrapFrame {

	private CodePointer codePointer;
	private Object env;
	private int cacheSize;
	private int argumentStackSize;
	private TrapFrame tp;

	public TrapFrame(CodePointer codePointer, Object env, int cacheSize, int argumentStackSize, TrapFrame tp) {
		this.codePointer = codePointer;
		this.env = env;
		this.cacheSize = cacheSize;
		this.argumentStackSize = argumentStackSize;
		this.tp = tp;
	}

	public Object env() {
		return env;
	}

	public int cacheSize() {
		return cacheSize;
	}

	public CodePointer codePointer() {
		return codePointer;
	}

	public TrapFrame next() {
		return tp;
	}

	public int argumentStackSize() {
		return argumentStackSize;
	}
}
